inherited frmCadEscala: TfrmCadEscala
  BorderIcons = [biSystemMenu]
  Caption = 'Glorious :: Cadastro de Escalas'
  ClientHeight = 322
  ClientWidth = 837
  OnShow = FormShow
  ExplicitWidth = 853
  ExplicitHeight = 360
  PixelsPerInch = 96
  TextHeight = 13
  inherited pnlPrincipal: TPanel
    Width = 837
    Height = 322
    ExplicitWidth = 837
    ExplicitHeight = 533
    object Label1: TLabel
      Left = 16
      Top = 14
      Width = 56
      Height = 13
      Caption = 'C'#243'd. Escala'
    end
    object Label6: TLabel
      Left = 16
      Top = 54
      Width = 64
      Height = 13
      Caption = 'C'#243'd. Membro'
    end
    object Label2: TLabel
      Left = 16
      Top = 94
      Width = 57
      Height = 13
      Caption = 'C'#243'd. Classe'
    end
    object Label3: TLabel
      Left = 16
      Top = 141
      Width = 36
      Height = 13
      Caption = 'Revista'
    end
    object Label4: TLabel
      Left = 16
      Top = 232
      Width = 101
      Height = 13
      Caption = 'Data Realiza'#231#227'o Aula'
    end
    object Label7: TLabel
      Left = 16
      Top = 187
      Width = 24
      Height = 13
      Caption = 'Li'#231#227'o'
    end
    object Label5: TLabel
      Left = 384
      Top = 14
      Width = 204
      Height = 13
      Caption = 'Li'#231#245'es da Revista com escalas j'#225' definidas '
    end
    object edtCodEscala: TEdit
      Left = 16
      Top = 30
      Width = 89
      Height = 21
      TabOrder = 0
    end
    object btnPesquisarEscala: TBitBtn
      Left = 111
      Top = 28
      Width = 34
      Height = 25
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33033333333333333F7F3333333333333000333333333333F777333333333333
        000333333333333F777333333333333000333333333333F77733333333333300
        033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
        33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
        3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
        33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
        333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
        333333773FF77333333333370007333333333333777333333333}
      NumGlyphs = 2
      TabOrder = 1
    end
    object btnPesquisarMembro: TBitBtn
      Left = 111
      Top = 68
      Width = 34
      Height = 25
      Enabled = False
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33033333333333333F7F3333333333333000333333333333F777333333333333
        000333333333333F777333333333333000333333333333F77733333333333300
        033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
        33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
        3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
        33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
        333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
        333333773FF77333333333370007333333333333777333333333}
      NumGlyphs = 2
      TabOrder = 2
      OnClick = btnPesquisarMembroClick
    end
    object edtCodMembro: TEdit
      Left = 16
      Top = 70
      Width = 89
      Height = 21
      Enabled = False
      NumbersOnly = True
      TabOrder = 3
      OnExit = edtCodMembroExit
    end
    object edtCodClasse: TEdit
      Left = 16
      Top = 110
      Width = 89
      Height = 21
      Enabled = False
      NumbersOnly = True
      TabOrder = 4
      OnExit = edtCodClasseExit
    end
    object btnPesquisarClasse: TBitBtn
      Left = 111
      Top = 108
      Width = 34
      Height = 25
      Enabled = False
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33033333333333333F7F3333333333333000333333333333F777333333333333
        000333333333333F777333333333333000333333333333F77733333333333300
        033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
        33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
        3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
        33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
        333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
        333333773FF77333333333370007333333333333777333333333}
      NumGlyphs = 2
      TabOrder = 5
      OnClick = btnPesquisarClasseClick
    end
    object edtDataAula: TDateTimePicker
      Left = 16
      Top = 247
      Width = 97
      Height = 21
      Date = 41786.943575081020000000
      Time = 41786.943575081020000000
      Enabled = False
      TabOrder = 6
    end
    object btnCancelar: TBitBtn
      Left = 65
      Top = 284
      Width = 105
      Height = 25
      Anchors = [akLeft, akBottom]
      Caption = 'Cancelar'
      Enabled = False
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
        3333333777333777FF3333993333339993333377FF3333377FF3399993333339
        993337777FF3333377F3393999333333993337F777FF333337FF993399933333
        399377F3777FF333377F993339993333399377F33777FF33377F993333999333
        399377F333777FF3377F993333399933399377F3333777FF377F993333339993
        399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
        99333773FF3333777733339993333339933333773FFFFFF77333333999999999
        3333333777333777333333333999993333333333377777333333}
      NumGlyphs = 2
      TabOrder = 7
      OnClick = btnCancelarClick
    end
    object btnSalvar: TBitBtn
      Left = 176
      Top = 284
      Width = 105
      Height = 25
      Anchors = [akLeft, akBottom]
      Caption = 'Salvar'
      Enabled = False
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
        00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
        00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
        00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
        0003737FFFFFFFFF7F7330099999999900333777777777777733}
      NumGlyphs = 2
      TabOrder = 8
      OnClick = btnSalvarClick
    end
    object edtNomeMembro: TEdit
      Left = 151
      Top = 70
      Width = 216
      Height = 21
      TabOrder = 9
    end
    object chkFechada: TCheckBox
      Left = 176
      Top = 247
      Width = 97
      Height = 17
      Caption = 'Escala Fechada'
      Enabled = False
      TabOrder = 10
    end
    object edtNomeClasse: TEdit
      Left = 151
      Top = 110
      Width = 216
      Height = 21
      TabOrder = 11
    end
    object cmbLicao: TDBLookupComboBox
      Left = 16
      Top = 202
      Width = 154
      Height = 21
      Enabled = False
      KeyField = 'idLicao'
      ListField = 'idLicao;tema'
      ListSource = dsLicao
      TabOrder = 12
    end
    object cmbRevista: TDBLookupComboBox
      Left = 16
      Top = 156
      Width = 154
      Height = 21
      Enabled = False
      KeyField = 'idRevista'
      ListField = 'idRevista;titulo'
      ListSource = dsRevista
      TabOrder = 13
      OnClick = cmbRevistaClick
      OnExit = cmbRevistaExit
    end
    object edtNomeRevista: TDBEdit
      Left = 176
      Top = 156
      Width = 191
      Height = 21
      DataField = 'titulo'
      DataSource = dsRevista
      ReadOnly = True
      TabOrder = 14
    end
    object edtNomeLicao: TDBEdit
      Left = 176
      Top = 202
      Width = 191
      Height = 21
      DataField = 'tema'
      DataSource = dsLicao
      ReadOnly = True
      TabOrder = 15
    end
    object btnNovaEscala: TBitBtn
      Left = 151
      Top = 28
      Width = 105
      Height = 25
      Caption = 'Nova Revista'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
        0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
        0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
        33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
        B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
        3BB33773333773333773B333333B3333333B7333333733333337}
      NumGlyphs = 2
      TabOrder = 16
      OnClick = btnNovaEscalaClick
    end
    object btnAlterarEscala: TBitBtn
      Left = 262
      Top = 28
      Width = 105
      Height = 25
      Caption = 'Editar'
      Enabled = False
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
        00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
        F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
        0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
        FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
        FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
        0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
        00333377737FFFFF773333303300000003333337337777777333}
      NumGlyphs = 2
      TabOrder = 17
      OnClick = btnAlterarEscalaClick
    end
    object DBGrid1: TDBGrid
      Left = 384
      Top = 30
      Width = 441
      Height = 234
      DataSource = dsLicoesEscaladas
      TabOrder = 18
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Tahoma'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'idLicao'
          Title.Caption = 'C'#243'd. Li'#231#227'o'
          Width = 54
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tema'
          Title.Caption = 'Nome Li'#231#227'o'
          Width = 94
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'idRevista'
          Title.Caption = 'C'#243'd. Revista'
          Width = 65
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'titulo'
          Title.Caption = 'Titulo Revista'
          Width = 99
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ano'
          Title.Caption = 'Ano'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'trimestre'
          Title.Caption = 'Trimestre'
          Visible = True
        end>
    end
  end
  inherited qrBusca: TSQLQuery
    Left = 408
    Top = 272
  end
  inherited cdsBusca: TClientDataSet
    Left = 472
    Top = 272
  end
  inherited dsBusca: TDataSource
    Left = 504
    Top = 272
  end
  inherited dspBusca: TDataSetProvider
    Left = 440
    Top = 272
  end
  inherited qrConfirma: TSQLQuery
    Left = 544
    Top = 240
  end
  object qrTemp: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQLConnection = frmPrincipal.Conexao
    Left = 544
    Top = 208
  end
  object dspTemp: TDataSetProvider
    DataSet = qrTemp
    Left = 576
    Top = 208
  end
  object cdsTemp: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspTemp'
    Left = 608
    Top = 208
  end
  object qrRevista: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT * FROM Revista')
    SQLConnection = frmPrincipal.Conexao
    Left = 408
    Top = 208
  end
  object dspRevista: TDataSetProvider
    DataSet = qrRevista
    Left = 440
    Top = 208
  end
  object cdsRevista: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspRevista'
    Left = 472
    Top = 208
  end
  object dsRevista: TDataSource
    DataSet = cdsRevista
    Left = 504
    Top = 208
  end
  object qrLicao: TSQLQuery
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftUnknown
        Name = 'IDREVISTA'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'SELECT L.IDLICAO, L.TEMA, R.*'
      'FROM LICAO AS L'
      'INNER JOIN REVISTA AS R'
      'ON L.IDREVISTA = R.IDREVISTA'
      'WHERE R.IDREVISTA = :IDREVISTA'
      'AND IDLICAO NOT IN ('
      #9'SELECT LI.IDLICAO'
      #9'FROM ESCALA AS ES'
      #9'INNER JOIN LICAO AS LI'
      #9'ON ES.IDLICAO = LI.IDLICAO'
      #9'INNER JOIN REVISTA AS RE'
      #9'ON LI.IDREVISTA = RE.IDREVISTA'
      ');')
    SQLConnection = frmPrincipal.Conexao
    Left = 408
    Top = 240
  end
  object dspLicao: TDataSetProvider
    DataSet = qrLicao
    Left = 440
    Top = 240
  end
  object cdsLicao: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspLicao'
    Left = 472
    Top = 240
  end
  object dsLicao: TDataSource
    DataSet = cdsLicao
    Left = 504
    Top = 240
  end
  object qrLicoesEscaladas: TSQLQuery
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftUnknown
        Name = 'IDREVISTA'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'SELECT *'
      'FROM ESCALA AS E'
      'INNER JOIN LICAO AS L'
      'ON E.IDLICAO = L.IDLICAO'
      'INNER JOIN REVISTA AS R'
      'ON L.IDREVISTA = R.IDREVISTA'
      'WHERE R.IDREVISTA = :IDREVISTA')
    SQLConnection = frmPrincipal.Conexao
    Left = 400
    Top = 96
  end
  object dspLicoesEscaladas: TDataSetProvider
    DataSet = qrLicoesEscaladas
    Left = 432
    Top = 96
  end
  object cdsLicoesEscaladas: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspLicoesEscaladas'
    Left = 464
    Top = 96
  end
  object dsLicoesEscaladas: TDataSource
    DataSet = cdsLicoesEscaladas
    Left = 496
    Top = 96
  end
end
